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import java.io.*; 
importjava.net.*; 
import java.util *; 



import java.util. Date ; 
import com.ms.com.*; 
import com.ms.asp.*; 



public class JRoute 



public Socket socSocket; 
int m_iTimeout= 10000; 
J8583 msg = newJ8583(); 

public int init(String input) 
< 



//WAR DECLARATIONS 

int port=0,ok=0;//CONNECTION PORT,CHECKSUM 

String hostname="localhost";//DEFAULT 

DataOutputStrcam theOutputStream; 
int pamum=8; 
String strlnput=""; 

String cardNumbe^^amount^'^expirydate^'^tra™ 



lilifllllliillllllll/IilllllllllllfKEAb INI PARS 
StringTokenizer tkToken = new StringTokenizer(input); 

hostname = tkToken.nextToken(); 

port = Integer.parseInt(tkToken.nextToken()); 

m_iTimeout = Integer.parselnt(tkToken.nextTokenQ); 



/////////////////////////////////// 



msg.addField(2,cardNumber); 

msg.addField(4,amount); 

msg.addField( 1 4,expirydate); 

msg.addField(37,'T'); 

msg.addField(41,tid); 

msg.addField(42,mid); 

msg.addField(6 1 ,unique); 

//CREATE SOCKET 
try 

{ 

socSocket = new Socket(hostname,port); 

socSocket.setSoTimeout(mjTimeout); 

socSocket.setTcpNoDelay(true); 

} 

catch (UnknownHostException e) 
{ 

retum(-4); //HOST NOT FOUND 



try{ 



//CARD NEEDS TO BE SENT TO OKTOPUS 
//BUILD MSG 



catch(IOException sockErr) 



retum(-3); 



} 

catch(Exception all) 
{ 

retum(-2); 

} 

msg.sendData(socSocket); 



} 

catch(Exception er) 
{ 

return(- 1 ); //SEND ERROR 

} 

retum(-l); 

> 

public int listenfordata() 
i 

//8583 CLASS 

msg.receive(socSocket); 

try 

{ 

if(msg.decide(socSocket)==0) //APPROVAL 
{ 

try{ 

. retum(O); //ITS GOOD 

} 

catch(Exception any) 
< 

return(-2); //ERROR 

> 

> 

else 
{ 

return(l); //DENIED 

> 

} 

catch(Exception e) 
< 

retum(-3); //ERRROR 

} 

} 

> 

import Java. io.*; 
importjava.net.*; 

public class J8583 
{ 

private byte m_baOutD = new byte[1024]; //OUTGOING BUFFER 

private int m_baOutIndex=0; //O BASED INDEX OF FILLED BYTES 

private DataOutputStream m_dosData; 

private BufferedlnputStream m_bislnput; 

private int m_field[] = new int[30]; 

private String m_valueQ = new String[30]; 

public J85830 
< 

//CONSTRUCTOR 

> 

public void readFieldsO 
{ 

int x=0; 

for(x=0;x<30;x-H-) 

System.out.print(m_fleld[x]+ M = :n +m_value[x]+"\n ,, ); 

} 



public void addField(int field.String value) 

{ 

int x j; 

j = value.lengthO; 

m_ba0ut[m_ba0utlndex] - (byte)field; 
m_ba0utlndex++; 

for(x=0;x < j ;x++) //THE INDEX IS ONE HIGH TO LEAVE A NULL BETWEEN FIELDS 
m_ba0ut[x+m_ba0utlndex] = (byte)value.charAt(x); 

m_baOutIndex += j+l;//RESET THE INDEX 

} 

public void sendData( Socket socLocal) 
{ 

try 

{ 

//SEND 

m_dosData = new DataOutputStream(socLocal.getOutputStream()); 
m_dosData.write(rn_baOut,0,m_baOutIndex); 

} 

catch (UnknownHostException e) 
{ 

System .out.print(e); 
System.exit(O); 

} 

catch(IOException sockErr) 
{ 

System.outprint("Socket Connection: "+sockErr); 
System.exit(O); 

} 

catch(Exception all) 
{ 

System.out.print("Socket Error: "+all); 
System.exit(O); 

> 

} 

public String resolveFieldValue(int fieldNumber) 
{ 

int x=0; 

for(x=0;x<30;x-H-) 

if(m_field[x]=fieldNumber) 
return(m_value[x]); 

retum( ,m ); 

} 

public void receive(Socket socLocal) 
{ 

try 

{ 

m_bislnput = new BufferedlnputStream(socLocal.getlnputStreamO); 

int k=l,index=0; 

byte buff] = new byte[1024]; 

m_bislnput.read(buf,0,1024); 

for(k=0;k<30;k++)//INITIALIZE THE NULL STRINGS 
m_va!ue[k]=""; 

k=l; 

mjield[index] = buflindex]; //FIRST FIELD MARKED BY FIRST BYTE 

while(k<1024) 

{ 

if(buf[k]!=0) 
{ 

m_val ue[index]-H=(char)buf[k++] ; 

} 

else 
{ 



# • 



if(bufIk+l]=0)//END OF STREAM 
break; 

else 
{ 

index++; 

m_field[index] = buf[k+l]; 

// System.out.print("r , +bufIk+l]+ ,, r); 

k+=2; 

> 



> 

catch(IOException err) 
{ 

//TIMEOUT 



i: : 



//System.out.print((nTimeout)/1000+" Second Timeout"); 
try 

{socLocal.closeO;} 

catch(IOException Error){System.out.print( n p"+ErTor);} 



} 

catch(Exception all) 
{ 

//MOST LIKELY A CLOSE ON IQ 
\M System.out.print("Network Connection Closed " + all); 

i jy //redirect(urlTimeout); 

i = } 

I y public int decide(Socket socLocal) 

int k=0,index=0; 

^ 1 byte pResuIt=0; 

j=* for(k=0;k<30;k-H-) 

^ if(m_fieId[k]=39)//GRAB PIN FIELD 

i|j pResult=(byte)m_vaJue[k].charAt(0); 

™: try {socLocal.closeO;} 

catch(IOException e){ } 

if(pResulr=48)//0 IS APPROVED 

//System.ouLprint("Thank You For Shopping At Electronic Paycheck"); 

retum(O); 

} 

else 

{ 

//System.out.print("Denied"); 



} 



return(l); 



// webhostDlg.cpp : implementation file 

// 



# include "stdafx.h" 

# include "webhosth" 

# include "webhostDlg.h" 

#include <afxtempl.h> // list 

#imdefTimeOut 
#define TimeOut 200 
#endif 

^define TimerlD 0x4000 

#ifdef_DEBUG 

#define new DEBUG_NEW 

#undef THIS_FILE 

static char TH1S_FILEQ = _FILE_; 

#endif 

//////////////////////^^^^^^ 

// CAboutDlg dialog used for App About 

class CAboutDlg : public CDialog 
{ 

public: 

CAboutDlgO; 

// Dialog Data 

//{ { AFX_DATA(CAboutDlg) 
enum { IDD - IDD_ABOUTBOX } ; 
//}}AFX_DATA 

// ClassWizard generated virtual fiinction overrides 

//{ { AFX_V1RTUAL(C AboutDlg) 

protected; 

virtual void DoDataExchange(CDataExchange* pDX); // DDX/DDV support 
//}}AFX_VIRTUAL 

// Implementation 
protected: 

//{ { AFX_MSG(CAboutDlg) 
//}}AFX_MSG 

DECLARE_MESSAGE_MAPO 



CAboutDlg: :CAboutDlgO : CDialog(CAboutDlg::IDD) 
{ 

//{ { AFX_DATA_INIT(C AboutDlg) 
//} } AFXDATAINIT 

> 

void CAboutDlg:;DoDataExchange(CDataExchange* pDX) 
{ 

CDialog::DoDataExchange(pDX); 
//{ { AFX_DATA_MAP(C AboutDlg) 
//} } AFXDATAMAP 

} 

BEGIN_MESSAGE_MAP(CAboutDlg, CDialog) 
//{ { AFX_MSG_MAP(CAboutDlg) 
// No message handlers 
//}}AFX_MSG_MAP 

END MESSAGE MAP() 

l!l!illl!llilill!!!ll!l!illilli!l!!il!l!!iil!!!l!!i!iiil!llil!lil!tfUil!il!! 
//CWebhostDlg dialog 

CWebhostDlg::CWebhostDlg(CWnd* pParent /*=NULL*/) 




: CDiaIog(CWebhostDlg::IDD, pParent) 

{ 

//{ { AFX_DATA_INIT(CWebhostDlg) 

m_in = 0; 

m_out = 0; 

m_q = _TC); 

//} } AFX_DATA_INIT 

// Note that Loadlcon does not require a subsequent Destroy! con in Win32 
mjilcon - AfxGetAppO->Loadlcon(IDR_MAINFRAME); 

} 

void CWebhostDlg::DoDataExchange(CDataExchange* pDX) 
{ 

CDialog: :DoDataExchange(pDX); 
//{ { AFX JDATA_MAP(C WebhostDlg) 
DDX_Contro!(pDX, IDC_LST, mjst); 
DDX_Text(pDX, IDCJH m_in); 
DDX_Text(pDX, IDC_OUT, m_out); 
DDX_Text(pDX, IDC_Q, m_q); 
//} } AFX_DATA_MAP 

> 

BEGIN_MESSAGE_MAP(CWebhostDIg, CDialog) 

//{ { AFX_MSG_MAP(CWebhostDlg) 

ON_WM_SYSCOMMAND0 

ON_WM_PAINT() 

ON_WM_QUERYDRAGICON() 

ON_WM_TIMER0 

//}}AFX_MSG_MAP 
END_MESSAGE_MAPO 

extern CWebhostApp theApp ; 
CWebhostDlg* pDlg ; 
char dbParam[256] ; 

# include <ep_init.h> 
#include <format.h> 

#define_STDC_ 

# include <d3des.h> 

EPsql sql ; 
Listener listener ; 
CList<Auth*,Auth*> Qa ; 
CList<EndPoint*,EndPoint*> Qe ; 

int matchFD={ 2,14,41,42,61,0 } ; // f61=uniquelD, f44="5A31 54050 18B44C4" 
unsigned char keyQ={ 0x29, Oxda, 0x91, 0x0b, 0x80, 0x9b, Oxfe, 0xd3 } ; 

CString sDebug ; 

void Listener: :OnAccept(int nErrorCode) { 
EndPoint* tmp=new EndPointO ; 
if (Accept(*tmp)) tmp->init() ; else delete tmp ; 

} 

int EndPoint: :respondO { 
const char *p ; 
char pkt[1024],*s=pkt; 
int i,dQ={ 35,43,47,48,52,62,102,103,0 } ; 
if (getType()=0) return 0 ; 
i=0 ; while (d[i]) { set(d[i],NULL) ; i++ ; } 
for(i=2;i<128; 

{ if (p=get(i)) { *s=i ; strcpy(s+l,p) ; s+=strlen(p)+2 ; } } 
return Send(pkt,s-pkt) ; 

} 

int EndPoint: :aging(intt) { 
if (t) { if (t=-l) sec- ; else sec=t ; } 
return sec ; 

> 



fcc. too 




int EndPoint::match(M8583* m) { 
int f>0 ; 

while (f=matchF[i++]) if (strcrnp(m->get(f),get(f))) return 0 ; 
return 1 ; 

} 

void EndPoint::init() { 
char buf[32] ; 
CString ipO ; 
UINT port ; 

BOOL nodelay=TRUE ; 

SetSockOpt(TCP_NODELAY,&nodelay,sizeof(BOOL),IPPROTO_TCP); 
sec=TimeOut ; Qe.AddTail(this) ; pDlg->m_in-H- ; 
GetPeerName(ipO,port) ; ip=inet_addr(ipO) ; 
sprintf(buf, "Connect %08x",ip) ; pDlg->note(buf) ; 

} 

void EndPoint::reject(int code) { 
char bufI32] ; 

sprintf(buf, "Reject %08x, code=%d",ip,code) ; pDlg->note(buf) ; sec=0 ; 
set(39,"100") ; set(44,buf+16) ; respondO ; 

} 

void EndPoint::OnReceive(int nErrorCode) { 
Auth* a ; 

EndPoint* e=NULL ; 
POSITION posl,pos2 ; 
BOOL fullTrans=TRUE ; 
short len,l,i,f ; 
const char* pp ; 

char *p,pin[24],pan[20],bufI1024],scodeQ="1200", ofTsetfKOOOO" ; 
if (nErrorCode) { sec=0 ; return ; } 

]en=Receive(buf,1020) ; bufllen]=0 ; p=buf ; setType(1200) ; *pin=l ; 
while (*p) { 

l=strlen(p) ; if ((*p=6 1 )&&(l=2)&&(p[ 1 ]= , A')) fullTrans=FALSE ; 
if (set(*p,p+l,8)<l) { reject(*p) ; return ; } 
if ((*p=52)&&()< 14)) // clear PIN 

{ *pin=0 ; pin[l]=l-l ; strcpy(pin+2,p+l) ; memset(pin+H-l,15,10) ; } 
p+=(l+l);// build PIN block 

} 

'f ((pp=get(52))&&(strncmp(pp ) "F01",3)=0)) { reject(52) ; return ; } 
i=0 ; while (f=matchF[i++]) if (get(f)=NULL) { reject(f) ; return ; } 
if (*pin=0) { // got clear PIN, build PAN block, update PIN block 

strcpy(pan,offset) ; strncpy(pan+4,get(2)+strlen(get(2))-13,12) ; 

p==pin ; for (i=0; i<16; i++) { *p=(*p A pan[i])&15 ; p++ ; } 

for (i=0; i<8; pin[i]=(pin[i*2]«4)+pin[i*2+l] ; 

deskey(key,0) ; des((unsigned char*)pin,(unsigned char*)pan) ; 

for (i=0; i<8; bin2hex(pin+i*2,pan[i]) ; pin[16]=0 ; set(52,pin) ; 

strcpy(buf,get(2)) ; strcat(buf, n =") ; strcat(buf,get(14)) ; 

strcat(buf,scode) ; strcat(buf,ofTset) ; set(35,buf) ; 
} // service code and offset hardcoded 
if (fiillTrans) { 

pos2=Qe.GetHeadPositionO ; 
while (pos2) { 

pos 1=^052 ; e=Qe.GetNext(pos2) ; 

if (!match(e)||(e==1his)) e=NULL ; else { Qe.RemoveAt(posl) ; break ; } 

} 

} 

if(!fullTrans||fullTrans&&e) 

{ a=new Auth(this,e) ; Qa.AddTail(a) ; Qe.RemoveAt(Qe.Find(this)) ; } 
sprintffbuf/'Recv %08x %d, card=%s M ) ip,len ) get(2)) ; pDlg->note(buf) ; 



Auth::Auth(EndPoint* el, EndPoint* e2) { 
int i ; 

const char* p ; 
charfll6],dest[4]="N? n ; 

e[0]=el ;e[l]=e2;cp(*el); 
if (e2) { 




if (e2->getType(>-1200) setType(1200) ; set(3, "000000") ; 

for (i=2; i<128; if (p=e2->get(i)) set(i,p) ; 
} else { set(3,"300000") ; set(4," 000000000000") ; ) 
if (fillMsg(*this,sql,dbParam,3)) // 1: BIN, 2: mid/tid 
{ el->reject(l) ; if (e2) e2->reject(l) ; setType(O) ; return ; } 
id=^pDlg->m_out ; pDlg->UpdateData(FALSE) ; 
set(37,itoa(id,f,10),8) ; pDlg->m_ep.cp(*this) ; 
dest[l]=*(get(47)+l) ; pDlg->m_ep.send(dest) ; 

> 

BOOL Auth::isActive() { 
if ((e[l]=NULL)||(e[0]->aging(0)>0)&&(e[l]->aging(0)>0)) return TRUE ; 
setType(O) ; return FALSE ; 

} 

Auth::~AuthO { 
for (int i=0; i<2; i++) if(e[i]) 
{ e[i]->cp(*this) ; e[i]->respond0 ; delete e[i] ; } 
setType(O) ; 

} 

iiiiiiiiiiiiiuiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiu 

II CWebhostDlg message handlers 

BOOL CWebhostDlg: :OnInitDialog() 
{ 

CDialog: :OnInitDialog0; 

// Add "About..." menu item to system menu. 

// IDM_ABOUTBOX must be in the system command range. 
ASSERT((IDM_ABOUTBOX & OxFFFO) = IDM_ABOUTBOX); 
ASSERT(IDM_ABOUTBOX < OxFOOO); 

CMenu* pSysMenu = GetSystemMenu(FALSE); 

if(pSysMenu != NULL) 

{ 

CString strAboutMenu; 

strAboutMenu.LoadString(IDS_ABOUTBOX); 

if (IstrAboutMenu.IsEmptyO) 

{ 

pSysMenu->AppendMenu(MF_SEPARATOR); 

pSysMenu->AppendMenu(MF_STRING, IDM_ABOUTBOX, strAboutMenu); 

} 

> 

// Set the icon for this dialog. The framework does this automatically 
// when the application's main window is not a dialog 
Setlcon(m_hlcon, TRUE); // Set big icon 

Setlcon(m_hlcon, FALSE); // Set small icon 

//TODO: Add extra initialization here 
char IP[256],name[4],title[16] ; 
short TCPort,port ; 

const char fmt[]="%s %hd %2s %s %hd %s" ; 

const char usage []="Usage: webhost IP port name DBparam listenPort" ; 

if(sscanfi[theApp.m_lpCmdLine ) fmt,IP ) &TCPort,name ) dbParam ) &port)<5) 

{ ::MessageBox(NULL,usage,"Error ,, ) MB_OK) ; EndDialog(O) ; return FALSE ; } 

sprintfl[title } "WebHost %s %d",name,port) ; SetWindowText(title) ; 

if (!listener.Create(port)) { 

::MessageBox(NULL,"Unable to create TCP/IP sockets.","Error",MB_OK) ; 

EndDialog(O) ; return FALSE ; 

> 

if (!listener.Listen()) { 
::MessageBox(NULL,"Network crror.", , *Error ,, I MB_OK) ; 
EndDialog(O) ; return FALSE ; 

} 

if (m_ep.connect(IP,TCPort,name)) { 

::MessageBox(NULL,"Error connecting to EProute. n ,"Error",MB_OK) ; 
EndDialog(O) ; return FALSE ; 



} 

pDlg=this ; SetTimer(TimerID,1000\NULL) ; 

return TRUE; // return TRUE unless you set the focus to a control 

> 

void CWebhostDlg::OnSysCommand(UINT nID, LPARAM IParam) 
{ 

if ((nID & OxFFFO) — IDM_ABOUTBOX) 
< 

CAboutDlg dlgAbout; 
dlgAbout.DoModalO; 

} 

else 
< 

CDialog::OnSysCommand(nID, IParam); 

} 

} 

// If you add a minimize button to your dialog, you will need the code below 
// to draw the icon. For MFC applications using the document/view model, 
// this is automatically done for you by the framework. 

void CWebhostDlg::OnPaint() 
{ 

if (IsIconicO) 
{ 

CPaintDC dc(this); // device context for painting 

SendMessage(WM_ICONERASEBKGND, (WPARAM) dc.GetSafeHdcO, 0); 

// Center icon in client rectangle 

int cxlcon = GetSystemMetrics(SM_CXICON); 

int cylcon = GetSystemMetrics(SM_CYICON); 

CRect rect; 

GetClientRect(&rect); 

int x - (rect.Width() - cxlcon + 1) / 2; 

int y = (rect.Height() - cylcon + 1) / 2; 

// Draw the icon 
dc.DrawIcon(x, y, m_hIcon); 

} 

else 
{ 

CDialog::OnPaint(); 

} 

} 

// The system calls this to obtain the cursor to display while the user drags 

// the minimized window. 

HCURSOR CWebhostDlg::OnQueryDraglconO 

{ 

return (HCURSOR) mjilcon; 

) 

void CWebhostDlg::OnTimer(UINT nIDEvent) 
< 

// TODO: Add your message handler code here and/or call default 

Auth* a ; 
EndPoint* e ; 
POSITION pos l,pos2 ; 
BOOL deI=FALSE ; 
if (nIDEvent=TimerID) { 

pos2=Qe.GetHeadPositionO ; 

while (pos2) { 

posl=pos2 ; e=Qe.GetNext(pos2) ; 

if (e->aging0<l) { Qe.RemoveAt(posl) ; del=TRUE ; delete e ; } 

} 

pos2=Qa.GetHeadPositionO ; 
while (pos2) { 

posl=pos2 ; a=Qa.GetNext(pos2) ; 



if (!a->isActiveQ) { Qa.RemoveAt(posl) ; del=TRUE ; delete a ; } 



void CWebhostDlg::note(const char* s) { 
if(s) 

{ mJst.AddString(s) ; if (m_1stGetCount()>14) mJst.DeieteString(O) ; } 
m_q.Format("%d %d",Qe.GetCount0 9 Qa.GetCountO) ; UpdateDala(FALSE) 

} 

void On8583(short mType, EPacket* ep) { 
int n,i ; 
char s[64] ; 
const char* p ; 
POSITION posl,pos2 ; 
Auth* a ; 

if ((mType=-l)||ep->mustExit()) { pDlg->EndDialog(0) ; return ; } 
if (mType) return ; // ignore other administrative messages 
ep->receiveO ; if (ep->getType()=1430) return ; 
if (p=ep->get(37)) n=atoi(p) ; else return ; 
pos2=Qa.GetHeadPositionO ; 
while (pos2) { 

posl=pos2 ; a=Qa.GetNext(pos2) ; 

if (a->match(n)) { 

ep->set(37,NULL) ; for(i=2; i<128; i++) if (p=ep->get(i)) a->set(i,p) ; 
Qa.RemoveAt(posl) ; delete a ; pDlg->note(NULL) ; return ; 

} 

pDlg->note("reversar) ; ep->getType(s) ; memset(s+4,'0',18) ; s[22]=0 ; 
if (p=ep->get(l 1)) strncpy(s+4,p,6) ; 
if (p=ep->get(12)) strncpy(s+10,p,12) ; 
if (p=ep->get(32)) strcpy(s+22,p) ; 

ep->set(56,s) ; ep->setType(1420) ; ep->send(ep->getSenderO) ; 

} 

/* 

sDebug.Format("") ; 

::MessageBox(NULL,sDebug,"Debug",MB_OK) ; 



if (del) note(NULL) ; 



CDialog: :OnTimer(nIDEvent); 



*/ 




